unit FServerMenu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, pngimage, Buttons, ActnList, ImgList, StdCtrls,
  Grids, DBGrids, GIFImg, WideStrings, DB, SqlExpr;

type
  TfrmServerMenu = class(TForm)
    pnl1: TPanel;
    pgc1: TPageControl;
    ts1: TTabSheet;
    ts2: TTabSheet;
    ts3: TTabSheet;
    ilIcon16: TImageList;
    actlst1: TActionList;
    actConectar: TAction;
    actDesconectar: TAction;
    actReiniciar: TAction;
    btnConectar: TSpeedButton;
    btnConectar1: TSpeedButton;
    actVerHistorico: TAction;
    actConfigHistorico: TAction;
    btnVerHistorico: TSpeedButton;
    btnConfiguraHistorico: TSpeedButton;
    ilIcon24: TImageList;
    actServerInativo: TAction;
    actServerAtivo: TAction;
    actServerOcupado: TAction;
    pnl2: TPanel;
    btnDesconectar: TSpeedButton;
    grp1: TGroupBox;
    btnBancoAtivo: TSpeedButton;
    btnServerAtivo: TSpeedButton;
    lbl1: TLabel;
    lbl2: TLabel;
    img7: TImage;
    grp2: TGroupBox;
    imgFundo1: TImage;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    lbl10: TLabel;
    grp3: TGroupBox;
    lbl11: TLabel;
    edt1: TEdit;
    lbl12: TLabel;
    edt2: TEdit;
    actlst2: TActionList;
    actLocalizaBanco: TAction;
    btnLocalizaBanco: TSpeedButton;
    btnSair: TSpeedButton;
    actSair: TAction;
    btnSair1: TSpeedButton;
    actMinimize: TAction;
    nbHistorico: TNotebook;
    lbl13: TLabel;
    edt3: TEdit;
    dbgrd1: TDBGrid;
    btnMinimize: TSpeedButton;
    actLogin: TAction;
    lbl14: TLabel;
    lbl15: TLabel;
    btnGravarConfigHistorico: TSpeedButton;
    actGravarConfigHistorico: TAction;
    img1: TImage;
    img3: TImage;
    btnConfigAvancada: TSpeedButton;
    actConfigAvancada: TAction;
    actSairDoSistema: TAction;
    btnSairDoSistema: TSpeedButton;
    btnSairDoSistema1: TSpeedButton;
    btnSairDoSistema2: TSpeedButton;
    procedure actConectarExecute(Sender: TObject);
    procedure actDesconectarExecute(Sender: TObject);
    procedure actConfigHistoricoExecute(Sender: TObject);
    procedure actVerHistoricoExecute(Sender: TObject);
    procedure actServerInativoExecute(Sender: TObject);
    procedure actServerAtivoExecute(Sender: TObject);
    procedure actServerOcupadoExecute(Sender: TObject);
    procedure actReiniciarExecute(Sender: TObject);
    procedure actSairExecute(Sender: TObject);
    procedure actMinimizeExecute(Sender: TObject);
    procedure actGravarConfigHistoricoExecute(Sender: TObject);
    procedure actLoginExecute(Sender: TObject);
    procedure actConfigAvancadaExecute(Sender: TObject);
    procedure actSairDoSistemaExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmServerMenu: TfrmServerMenu;

implementation

uses FConfigAvancadas;

{$R *.dfm}

procedure TfrmServerMenu.actConectarExecute(Sender: TObject);
begin
//
end;

procedure TfrmServerMenu.actConfigAvancadaExecute(Sender: TObject);
begin
  frmConfigAvancada := TfrmConfigAvancada.Create(Self);
  try
    frmConfigAvancada.ShowModal;
  finally
    FreeAndNil(frmConfigAvancada);
  end;
end;

procedure TfrmServerMenu.actConfigHistoricoExecute(Sender: TObject);
begin
  if btnConfiguraHistorico.Down then
    nbHistorico.PageIndex := 1;
end;

procedure TfrmServerMenu.actDesconectarExecute(Sender: TObject);
begin
//
end;

procedure TfrmServerMenu.actGravarConfigHistoricoExecute(Sender: TObject);
begin
//
end;

procedure TfrmServerMenu.actLoginExecute(Sender: TObject);
begin
//
end;

procedure TfrmServerMenu.actMinimizeExecute(Sender: TObject);
begin
//
end;

procedure TfrmServerMenu.actReiniciarExecute(Sender: TObject);
begin
// reiniciar o servidor
end;

procedure TfrmServerMenu.actSairDoSistemaExecute(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmServerMenu.actSairExecute(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmServerMenu.actServerAtivoExecute(Sender: TObject);
begin
// server ativo
end;

procedure TfrmServerMenu.actServerInativoExecute(Sender: TObject);
begin
// server inativo
end;

procedure TfrmServerMenu.actServerOcupadoExecute(Sender: TObject);
begin
// servidor ocupado
end;

procedure TfrmServerMenu.actVerHistoricoExecute(Sender: TObject);
begin
  if btnVerHistorico.Down then
    nbHistorico.PageIndex := 0;
end;

end.




